home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / 3d / raystorm-complete / examples / exa.lha / arexx / eight.ray < prev    next >
Text File  |  1996-07-27  |  1KB  |  71 lines
  1. /***************
  2.  * NAME:          eight.ray
  3.  * DESCRIPTION:   Billard scene
  4.  * AUTHOR:        Andreas Heumann
  5.  ***************/
  6.  
  7. signal on error
  8.  
  9. options results
  10.  
  11. IF ~show('P','RAYSTORM') THEN DO
  12.     address COMMAND 'stack 8192'
  13.     address COMMAND 'run >NIL: <NIL: /RayStorm'
  14.     address COMMAND 'stack 4096'
  15.     address COMMAND WaitForPort RAYSTORM
  16. END
  17.  
  18. address RAYSTORM
  19.  
  20. 'OBJECTPATH /objects'
  21. 'BRUSHPATH /brushes'
  22.  
  23. 'SETSCREEN 160 128'
  24. 'SETCAMERA <-100,100,-120> <0,5,5> <0,1,0> 25 20'
  25. 'SETWORLD [0,0,0] [50,50,50]'
  26. 'POINTLIGHT <20,200,-100> SHADOW'
  27. 'POINTLIGHT <20,200,100> SHADOW'
  28.  
  29. 'NEWSURFACE TABLETOP'
  30. 'DIFFUSE [0,80,0]'
  31.  
  32. 'PLANE TABLETOP <0,0,0> <0,1,0>'
  33.  
  34. 'NEWSURFACE EIGHT'
  35. 'DIFFUSE [0,0,0]'
  36. 'AMBIENT [38,38,38]'
  37. 'REFLECT [38,38,38]'
  38. 'BRUSH eight_brush.png COLOR FLAT <0,5,0> <0,0,0> <4,4,5.1>'
  39.  
  40. 'SPHERE EIGHT <0,5,0> 5'
  41.  
  42. 'NEWSURFACE WHITE'
  43. 'DIFFUSE [255,255,255]'
  44. 'AMBIENT [51,51,51]'
  45. 'REFLECT [38,38,38]'
  46.  
  47. 'SPHERE WHITE <0,5,10> 5'
  48.  
  49. 'LOADOBJ eight_queue.iob <-20,0,0>'
  50.  
  51. 'NEWSURFACE WINDOW BRIGHT'
  52.  
  53. 'TRIANGLE WINDOW <-600,100,-400> <-600,100,-100> <-600,300,-200>'
  54. 'TRIANGLE WINDOW <-600,300,-400> <-600,100,-100> <-600,300,-50>'
  55. 'TRIANGLE WINDOW <-600,100,400>  <-600,100,100>  <-600,300,200>'
  56. 'TRIANGLE WINDOW <-600,300,400>  <-600,100,100>  <-600,300,50>'
  57.  
  58. 'STARTRENDER'
  59.  
  60. 'SAVEPIC eight.iff'
  61.  
  62. 'CLEANUP'
  63.  
  64. exit 0
  65.  
  66. error:
  67. say "Error" rc "in line" sigl ":"
  68. GETERRORSTR rc
  69. say result
  70. exit 0
  71.